library(tidyverse)
library(ggrepel)
grades <- read_csv("../GITIGNORED/exam1.csv")
grades |> slice_sample(n = 2)# A tibble: 2 × 3
id open_notes closed_notes
<dbl> <dbl> <dbl>
1 28 49 50
2 17 44 45.5